{$asmmode att}

function get_caller_addr(framebp:pointer):pointer;nostackframe;assembler;
asm
{$ifndef REGCALL}
	movl    framebp,%eax
{$endif}
	orl     %eax,%eax
	jz      .Lg_a_null
	movl    4(%eax),%eax
.Lg_a_null:
end;


function get_caller_frame(framebp:pointer):pointer;nostackframe;assembler;
asm
{$ifndef REGCALL}
	movl    framebp,%eax
{$endif}
	orl     %eax,%eax
	jz      .Lgnf_null
	movl    (%eax),%eax
.Lgnf_null:
end;